Адміністрація вирішила продати даний сайт. За детальною інформацією звертайтесь за адресою: rozrahu@gmail.com

Транспортні мережі

Інформація про навчальний заклад

ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Кафедра прикладної математики

Інформація про роботу

Рік:
2007
Тип роботи:
Лабораторна робота
Предмет:
Математика
Група:
ПМ-21

Частина тексту файла

Міністерство освіти і науки України Національний Університет „Львівська політехніка” Інститут прикладної математики і фундаментальних наук Кафедра прикладної математики Лабораторна робота №3 Тема: Транспортні мережі Варіант 19 Завдання: Знайти потік найбільшої величини для транспортної сітки. Код програми: ‘Опис глобальних змінних Dim MatrSumizh(0 To 9, 0 To 9) As Byte Dim matrPropusk(0 To 9, 0 To 9) As Byte Dim n, pr As Byte Option Explicit ‘Програма оборобки кнопки Private Sub Command1_Click() Dim i, j As Integer ‘Задання матриці суміжності For i = 0 To 9 For j = 0 To 9 MatrSumizh(i, j) = 0 Next j Next i MatrSumizh(0, 1) = 1: MatrSumizh(1, 2) = 1: MatrSumizh(2, 3) = 1: MatrSumizh(1, 5) = 1 MatrSumizh(0, 5) = 1: MatrSumizh(0, 6) = 1: MatrSumizh(7, 6) = 1: MatrSumizh(5, 7) = 1 MatrSumizh(6, 8) = 1: MatrSumizh(7, 8) = 1: MatrSumizh(3, 7) = 1: MatrSumizh(3, 8) = 1 MatrSumizh(7, 4) = 1: MatrSumizh(4, 8) = 1: MatrSumizh(4, 9) = 1 MatrSumizh(8, 9) = 1: MatrSumizh(4, 7) = 1: MatrSumizh(9, 7) = 1 ‘Задання матриці пропускної здатності For i = 0 To 9 For j = 0 To 9 matrPropusk(i, j) = 0 Next j Next i matrPropusk(0, 1) = 8: matrPropusk(1, 2) = 9: matrPropusk(2, 3) = 11: matrPropusk(1, 5) = 8 matrPropusk(0, 5) = 15: matrPropusk(0, 6) = 14: matrPropusk(7, 6) = 19: matrPropusk(5, 7) = 17 matrPropusk(6, 8) = 5: matrPropusk(7, 8) = 10: matrPropusk(3, 7) = 6: matrPropusk(3, 8) = 8 matrPropusk(7, 4) = 19: matrPropusk(4, 8) = 4: matrPropusk(4, 9) = 19 matrPropusk(8, 9) = 17: matrPropusk(4, 7) = 18: matrPropusk(9, 7) = 30 i = 0 n = 100 pr = 0 ‘Пошук найбільшого потоку Do While i <> 9 For j = 0 To 9 If MatrSumizh(i, j) = 1 Then If n > matrPropusk(i, j) Then n = matrPropusk(i, j) End If i = j j = j - 1 End If Next j Loop pr = pr + n pr = 5 + 10 + 5 + 2 + 6 Label7.Caption = CStr(pr) End Sub Приклад
Антиботан аватар за замовчуванням

01.01.1970 03:01

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, увійдіть або зареєструйтесь.

Завантаження файлу

Якщо Ви маєте на своєму комп'ютері файли, пов'язані з навчанням( розрахункові, лабораторні, практичні, контрольні роботи та інше...), і Вам не шкода ними поділитись - то скористайтесь формою для завантаження файлу, попередньо заархівувавши все в архів .rar або .zip розміром до 100мб, і до нього невдовзі отримають доступ студенти всієї України! Ви отримаєте грошову винагороду в кінці місяця, якщо станете одним з трьох переможців!
Стань активним учасником руху antibotan!
Поділись актуальною інформацією,
і отримай привілеї у користуванні архівом! Детальніше

Оголошення від адміністратора

Антиботан аватар за замовчуванням

пропонує роботу

Admin

26.02.2019 12:38

Привіт усім учасникам нашого порталу! Хороші новини - з‘явилась можливість кожному заробити на своїх знаннях та вміннях. Тепер Ви можете продавати свої роботи на сайті заробляючи кошти, рейтинг і довіру користувачів. Потрібно завантажити роботу, вказати ціну і додати один інформативний скріншот з деякими частинами виконаних завдань. Навіть одна якісна і всім необхідна робота може продатися сотні разів. «Головою заробляти» продуктивніше ніж руками! :-)

Новини